MacTech 1 to 12/MacTech-vol-1-12.toast/Source/MacTech® Magazine/Volume 03 - 1987/03.10 Oct 87/RomRef sources/ROM Data sources/Formal3.asm

Assembly Source File | 1986-08-15 | 20.0 KB | 1,140 lines | [TEXT/MEDT]

; -----
; Data for each toolbox call by Manager
; -----

        STRING_FORMAT   0       NO count in this section

;--QuickdrawData--
id set 549
;AddPt
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'AddPt('
    .Pt      VAR,'srcPt, '
    .Pt      VAR,'dstPt)'

;BackColor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'BackColor('
    .long    NOVAR,'back)'

;BackPat
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'BackPat('
    .Pat     VAR,'back)'

;CharWidth
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'w = CharWidth('
    .byte    NOVAR,'ch)'

;ClipRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ClipRect('
    .Rect    VAR,'clipR)'

;ClosePicture
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ClosePicture()'

;ClosePoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ClosePoly()'

;ClosePort
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ClosePort('
    .Graf    NOVAR,'GPrt)'

;CloseRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CloseRgn('
    .RgnH    NOVAR,'dest)'

;ColorBit
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ColorBit('
    .Integer NOVAR,'which)'

;CopyBits
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CopyBits('
    DC.B    '(BitMap *) srcB, '
    DC.B    '(BitMap *) dstB, '
    .Rect    VAR,'srcR, '
    .Rect    VAR,'dstR, '
    .Integer NOVAR,'mode, '
    .RgnH    NOVAR,'mask)'

;CopyRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CopyRgn('
    .RgnH    NOVAR,'src, '
    .RgnH    NOVAR,'dst)'

;DiffRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DiffRgn('
    .RgnH    NOVAR,'srcA, '
    .RgnH    NOVAR,'srcB, '
    .RgnH    NOVAR,'dst)'

;DisposeRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DisposeRgn('
    .RgnH    NOVAR,'rgn)'

;DrawChar
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DrawChar('
    .byte    NOVAR,'ch)'

;DrawPicture
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DrawPicture('
    .PicH    NOVAR,'thePic, '
    .Rect    VAR,'dstR)'

;DrawString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DrawString('
    .Str255  VAR,'theSt)'

;DrawText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DrawText('
    .Ptr     NOVAR,'txtBuf, '
    .Integer NOVAR,'start, '
    .Integer NOVAR,'len)'

;EmptyRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'empty = EmptyRect('
    .Rect    VAR,'testR)'

;EmptyRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'empty = EmptyRgn('
    .RgnH    NOVAR,'Rgn)'

;EqualPt
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'eq = EqualPt('
    .Pt      VAR,'ptA, '
    .Pt      VAR,'ptB)'

;EqualRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'eq = EqualRect('
    .Rect    VAR,'rectA, '
    .Rect    VAR,'rectB)'

;EqualRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'eq = EqualRgn('
    .RgnH    NOVAR,'rgnA, '
    .RgnH    NOVAR,'rgnB)'

;EraseArc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'EraseArc('
    .Rect    VAR,'R, '
    .Integer NOVAR,'stAng, '
    .Integer NOVAR,'endAng)'

;EraseOval
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'EraseOval('
    .Rect    VAR,'R)'

;ErasePoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ErasePoly('
    .PolH    NOVAR,'poly)'

;EraseRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'EraseRect('
    .Rect    VAR,'R)'

;EraseRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'EraseRgn('
    .RgnH    NOVAR,'rgn)'

;EraseRoundRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'EraseRoundRect('
    .Rect    VAR,'R, '
    .Integer NOVAR,'ovalH, '
    .Integer NOVAR,'ovalW)'

;FillArc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FillArc('
    .Rect    VAR,'R, '
    .Integer NOVAR,'stAng, '
    .Integer NOVAR,'endAng, '
    .Pat     VAR,'pat)'

;FillOval
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FillOval('
    .Rect    VAR,'R, '
    .Pat     VAR,'pat)'

;FillPoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FillPoly('
    .PolH    NOVAR,'poly, '
    .Pat     VAR,'pat)'

;FillRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FillRect('
    .Rect    VAR,'R, '
    .Pat     VAR,'pat)'

;FillRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FillRgn('
    .RgnH    NOVAR,'rgn, '
    .Pat     VAR,'pat)'

;FillRoundRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FillRoundRect('
    .Rect    VAR,'R, '
    .Integer NOVAR,'ovalH, '
    .Integer NOVAR,'ovalW, '
    .Pat     VAR,'pat)'

;ForeColor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ForeColor('
    .long    NOVAR,'color)'

;FrameArc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FrameArc('
    .Rect    VAR,'R, '
    .Integer NOVAR,'stAng, '
    .Integer NOVAR,'endAng)'

;FrameOval
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FrameOval('
    .Rect    VAR,'R)'

;FramePoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FramePoly('
    .PolH    NOVAR,'poly)'

;FrameRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FrameRect('
    .Rect    VAR,'R)'

;FrameRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FrameRgn('
    .RgnH    NOVAR,'rgn)'

;FrameRoundRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FrameRoundRect('
    .Rect    VAR,'R, '
    .Integer NOVAR,'ovalH, '
    .Integer NOVAR,'ovalW)'

;GetClip
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetClip('
    .RgnH    NOVAR,'rgn)'

;GetFontInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetFontInfo('
    .FInfo   VAR,'Finfo)'

;GetPen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetPen('
    .Pt      VAR,'pen)'

;GetPenState
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetPenState('
    DC.B    '(PenState *) pnSt)'

;GetPixel
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'St = GetPixel('
    .Integer NOVAR,'h, '
    .Integer NOVAR,'v)'

;GetPort
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetPort('
    .Graf    VAR,'port)'

;GlobalToLocal
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GlobalToLocal('
    .Pt      VAR,'pt)'

;GrafDevice
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GrafDevice('
    .Integer NOVAR,'dev)'

;HideCursor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'HideCursor()'

;HidePen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'HidePen()'

;InitCursor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'InitCursor()'

;InitGraf
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'InitGraf('
    .Ptr    NOVAR,'globals)'

;InitPort
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InitPort('
    .Graf    VAR,'port)'

;InsetRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'InsetRect('
    .Rect   VAR,'R, '
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV)'

;InsetRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InsetRgn('
    .RgnH    NOVAR,'rgn, '
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV)'

;InvertArc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InvertArc('
    .Rect    VAR,'R, '
    .Integer NOVAR,'stAng, '
    .Integer NOVAR,'arcAng)'

;InvertOval
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InvertOval('
    .Rect    VAR,'R)'

;InvertPoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InvertPoly('
    .PolH    NOVAR,'poly)'

;InvertRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InvertRect('
    .Rect    VAR,'R)'

;InvertRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InvertRgn('
    .RgnH    NOVAR,'rgn)'

;InvertRoundRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InvertRoundRect('
    .Rect    VAR,'R, '
    .Integer NOVAR,'ovalW, '
    .Integer NOVAR,'ovalH)'

;KillPicture
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'KillPicture('
    .PicH    NOVAR,'myPic)'

;KillPoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'KillPoly('
    .PolH    NOVAR,'poly)'

;Line
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'Line('
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV)'

;LineTo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'LineTo('
    .Integer NOVAR,'H, '
    .Integer NOVAR,'V)'

;LocalToGlobal
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'LocalToGlobal('
    .Pt      VAR,'pt)'

;MapPoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'MapPoly('
    .PolH    NOVAR,'poly, '
    .Rect    VAR,'srcR, '
    .Rect    VAR,'dstR)'

;MapPt
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'MapPt('
    .Pt      VAR,'pt, '
    .Rect    VAR,'srcR, '
    .Rect    VAR,'dstR)'

;MapRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'MapRect('
    .Rect    VAR,'R, '
    .Rect    VAR,'srcR, '
    .Rect    VAR,'dstR)'

;MapRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'MapRgn('
    .RgnH    NOVAR,'rgn, '
    .Rect    VAR,'srcR, '
    .Rect    VAR,'dstR)'

;Move
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'Move('
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV)'

;MovePortTo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'MovePortTo('
    .Integer NOVAR,'leftGl, '
    .Integer NOVAR,'topGL)'

;MoveTo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'MoveTo('
    .Integer NOVAR,'H, '
    .Integer NOVAR,'V)'

;NewRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .RgnH    NOVAR,'rgn = NewRgn()'

;ObscureCursor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ObscureCursor()'

;OffsetPoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'OffsetPoly('
    .PolH    NOVAR,'poly, '
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV)'

;OffsetRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'OffsetRect('
    .Rect    VAR,'R, '
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV)'

;OffsetRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'OffsetRgn('
    .RgnH    NOVAR,'rgn, '
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV)'

;OpenPicture
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .PicH    NOVAR,'pic = OpenPicture()'

;OpenPoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .PolH    NOVAR,'poly = OpenPoly()'

;OpenPort
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'OpenPort('
    .Graf    NOVAR,'graf)'

;OpenRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'OpenRgn()'

;PaintArc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PaintArc('
    .Rect    VAR,'R, '
    .Integer NOVAR,'stAng, '
    .Integer NOVAR,'arcAng)'

;PaintOval
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PaintOval('
    .Rect    NOVAR,'R)'

;PaintPoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PaintPoly('
    .PolH    NOVAR,'poly)'

;PaintRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PaintRect('
    .Rect    NOVAR,'R)'

;PaintRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PaintRgn('
    .RgnH    NOVAR,'rgn)'

;PaintRoundRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PaintRoundRect('
    .Rect    VAR,'R, '
    .Integer NOVAR,'ovalW, '
    .Integer NOVAR,'ovalH)'

;PenMode
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PenMode('
    .Integer NOVAR,'mode)'

;PenNormal
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PenNormal()'

;PenPat
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PenPat('
    .Pat     VAR,'pat)'

;PenSize
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PenSize('
    .Integer NOVAR,'W, '
    .Integer NOVAR,'H)'

;PicComment
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PicComment('
    .Integer NOVAR,'kind, '
    .Integer NOVAR,'size, '
    .Handle  NOVAR,'dataH)'

;PortSize
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PortSize('
    .Integer NOVAR,'W, '
    .Integer NOVAR,'H)'

;PtInRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'in = PtInRect('
    .Pt      VAR,'pt, '
    .Rect    VAR,'R)'

;PtInRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'in = PtInRgn('
    .Pt      VAR,'pt, '
    .RgnH    NOVAR,'rgn)'

;PtToAngle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PtToAngle('
    .Rect    VAR,'R, '
    .Pt      VAR,'pt, '
    .Integer VAR,'angle)'

;Pt2Rect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'Pt2Rect('
    .Pt      VAR,'pt1, '
    .Pt      VAR,'pt2, '
    .Rect    VAR,'destR)'

;Random
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'no = Random()'

;RectInRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'in = RectInRgn('
    .Rect    VAR,'R, '
    .RgnH    NOVAR,'rgn)'

;RectRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'RectRgn('
    .RgnH    NOVAR,'rgn, '
    .Rect    VAR,'R)'

;ScalePt
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ScalePt('
    .Pt      VAR,'pt, '
    .Rect    VAR,'srcR, '
    .Rect    VAR,'dstR)'

;ScrollRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ScrollRect('
    .Rect    VAR,'R, '
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV, '
    .RgnH    NOVAR,'updtRgn)'

;SectRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'meet = SectRect('
    .Rect    VAR,'srcR1, '
    .Rect    VAR,'srcR2, '
    .Rect    VAR,'dstR)'

;SectRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SectRgn('
    .RgnH    NOVAR,'srcRgn1, '
    .RgnH    NOVAR,'srcRgn2, '
    .RgnH    NOVAR,'dstRgn)'

;SetClip
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetClip('
    .RgnH    NOVAR,'rgn)'

;SetCursor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetCursor('
    .byte    VAR,'crsr)'

;SetEmptyRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetEmptyRgn('
    .RgnH    NOVAR,'rgn)'

;SetOrigin
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetOrigin('
    .Integer NOVAR,'H, '
    .Integer NOVAR,'V)'

;SetPenState
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetPenState((pnState *) penSt)'

;SetPort
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetPort('
    .Graf    NOVAR,'port)'

;SetPortBits
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetPortBits('
    .Bmap   NOVAR,'bitmap)'

;SetPt
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetPt('
    .Pt      VAR,'pt, '
    .Integer NOVAR,'H, '
    .Integer NOVAR,'V)'

;SetRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetRect('
    .Rect    VAR,'R, '
    .Integer NOVAR,'lft, '
    .Integer NOVAR,'top, '
    .Integer NOVAR,'rght, '
    .Integer NOVAR,'bot)'

;SetRectRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetRectRgn('
    .RgnH    NOVAR,'rgn, '
    .Integer NOVAR,'lft, '
    .Integer NOVAR,'top, '
    .Integer NOVAR,'rght, '
    .Integer NOVAR,'bot)'

;SetStdProcs
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetStdProcs((QDProcs *) procs)'

;ShowCursor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ShowCursor()'

;ShowPen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ShowPen()'

;SpaceExtra
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SpaceExtra'
    .Fix     NOVAR,'extra)'

;StdArc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdArc('
    .byte    VAR,'verb, '
    .Rect    VAR,'R, '
    .Integer NOVAR,'stAng, '
    .Integer NOVAR,'arcAng)'

;StdBits
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdBits('
    .Bmap    NOVAR,'srcBits, '
    .Rect    VAR,'srcR, '
    .Rect    VAR,'dstR, '
    .Integer NOVAR,'mode, '
    .RgnH    NOVAR,'mask)'

;StdComment
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdComment('
    .Integer NOVAR,'kind, '
    .Integer NOVAR,'size, '
    .Handle  NOVAR,'data)'

;StdGetPic
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'StdGetPic('
    .byte    VAR,'data, '
    .Integer NOVAR,'count)'

;StdLine
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdLine('
    .Pt      VAR,'newPt)'

;StdOval
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdOval('
    .byte    VAR,'verb, '
    .Rect    VAR,'R)'

;StdPoly
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdPoly('
    .byte    VAR,'verb, '
    .PolH    NOVAR,'poly)'

;StdPutPic
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdPutPic('
    .byte    VAR,'data, '
    .Integer NOVAR,'count)'

;StdRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdRect('
    .byte    VAR,'verb, '
    .Rect    VAR,'R)'

;StdRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdRgn('
    .byte    VAR,'verb, '
    .RgnH    NOVAR,'rgn)'

;StdRRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdRRect('
    .byte    VAR,'verb, '
    .Rect    VAR,'R, '
    .Integer NOVAR,'ovalW, '
    .Integer NOVAR,'ovalH)'

;StdText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StdText('
    .Integer NOVAR,'ct, '
    .byte    VAR,'buff, '
    .Pt      VAR,'num, '
    .Pt      VAR,'denom)'

;StdTxMeas
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'w = StdTxMeas('
    .Integer NOVAR,'ct, '
    .byte    VAR,'buff, '
    .Pt      VAR,'num, '
    .Pt      VAR,'denom, '
    .FInfo   VAR,'info)'

;StringWidth
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'w = StringWidth('
    .Str255  VAR,'str)'

;StuffHex
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'StuffHex('
    .byte    VAR,'where, '
    .Str255  VAR,'str)'

;SubPt
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SubPt('
    .Pt      VAR,'srcPt, '
    .Pt      VAR,'dstPt)'

;TextFace
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'TextFace('
    .byte    NOVAR,'style)'

;TextFont
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'TextFont('
    .Integer NOVAR,'font)'

;TextMode
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'TextMode('
    .Integer NOVAR,'mode)'

;TextSize
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'TextSize('
    .Integer NOVAR,'size)'

;TextWidth
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'w=TextWidth('
    .byte    VAR,'buf, '
    .Integer NOVAR,'start, '
    .Integer NOVAR,'ct)'

;UnionRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'UnionRect('
    .Rect    VAR,'srcR1, '
    .Rect    VAR,'srcR2, '
    .Rect    VAR,'dstR)'

;UnionRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'UnionRgn('
    .RgnH    NOVAR,'srcA, '
    .RgnH    NOVAR,'srcB, '
    .RgnH    NOVAR,'dst)'

;XorRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'XorRgn('
    .RgnH    NOVAR,'srcA, '
    .RgnH    NOVAR,'srcB, '
    .RgnH    NOVAR,'dst)'